home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0885.dms
/
q0885.adf
/
Rexx
/
restore.mrbk
< prev
next >
Wrap
Text File
|
1997-04-10
|
1KB
|
64 lines
/* restore.mrbk */
/* This ARexx program is a simple-minded restore script. It has hard-wired
* parameter settings which could give way to command-line options. It is
* also hard-wired to the first instance of MRBackup, though it doesn't
* need to be.
*/
signal on ERROR
signal on BREAK_C
options results
if ~(Show('P', 'MRBackup_#1')) then do
say "You must run MRBackup first. With a little work, you could"
say "get this ARexx script to do it for you."
exit 1
end
address "MRBackup_#1"
poptofront
backpath = "DF0:"
setbackpath backpath
if rc ~= 0 then do
say "Failed to set backup path to " || backpath
exit 1
end
homepath = "DH0:"
sethomepath homepath
if rc ~= 0 then do
say "Failed to set home path to " || homepath
exit 1
end
restore
if rc ~= 0 then do
say "Restore failed; error code: " || rc
exit 1
end
exit 0
/*------------------------------------------------------------------*/
break_c:
say "*** Control-C recieved. Stopped by user. ***"
exit 5
/*------------------------------------------------------------------*/
error:
say "Error"
exit 6
/*------------------------------------------------------------------*/